home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / win32 / makeperldef.pl < prev    next >
Text File  |  1998-07-19  |  397b  |  24 lines
  1. my $CCTYPE = "";
  2. print "EXPORTS\n";
  3. foreach (@ARGV) {
  4.     if (/CCTYPE=(.*)$/) {
  5.         $CCTYPE = $1;
  6.         next;
  7.     }
  8.     emit_symbol("boot_$_");
  9. }
  10.  
  11. sub emit_symbol {
  12.     my $symbol = shift;
  13.     if ($CCTYPE eq "BORLAND") {
  14.         # workaround Borland quirk by export both the straight
  15.         # name and a name with leading underscore
  16.         print "\t$symbol=_$symbol\n";
  17.         print "\t_$symbol\n";
  18.     }
  19.     else {
  20.         print "\t$symbol\n";
  21.     }
  22. }
  23.  
  24.